Amiga Plus 2004 #9/Amiga Plus CD - 2004 - No. 09.iso/amigaplus/tools/amigasystem/amichameleoninstall/amichameleon.install

Text File | 2004-08-03 | 5KB | 233 lines

(SET #InstallerVersion 44)
(SET #InstallerRevision 10)


;#######
;english
;#######
(set #targetmain
  (cat "Where should the main program be copied?\n"
    "A drawer will not be created!\n")
)
(set #targetthemes
  (cat "AmiChameleon will archive all themes into an extra drawer.\n"
    "where should this drawer be created?\n"
    "Remember, that every theme will need about 2 MB of diskspace!")
)
(set #insertassign "The Installer will now add a Theme: assign to your user-startup")
(set #themesexists
  (cat "The Installer found an assign themes:\n"
    "the new version is not compatible with compatible with\n"
    "the first version. The Installer will now DELETE all existing Themes!!")
)
(set #themesexists
  (cat "An old, incompatible version of AmiChameleon seems to be installed on your System.\n"
    "Do you want to make a backup of the existing themes?\n"
    "(otherwise they will be lost)")
)
(set #backupdest
  (cat "Select a drawer, where the installer should backup your themes!\n"
         "Do not select \"Themes:\" as destination for your backup!!\n"
         "A drawer called \"ThemesBackup\" will be created!")
)
(set #dobackup "Creating backup of your existing Themes...")
(set #assigntxt "  ;assign resides inside s:startup-sequence")
;#######
;deutsch
;#######
(if (= @language "deutsch")
  (
  (set #targetmain
    (cat "Wohin soll das Hauptprogramm kopiert werden?\n"
           "Es wird kein Extra Verzeichnis erstellt.\n"
    )
  )
  (set #targetthemes
    (cat "AmiChameleon archiviert alle Themes in einem \n"
           "Verzeichnis. Wo soll dieses Verzeichnis erstellt werden?\n"
           "Beachten Sie, daß ein Theme etwa zwei MB  Speicher benötigt!\n"
    )
  )
  (set #insertassign "Der Installer fügt nun Ihrer User-Startup ein Theme: Assign hinzu.")
))









;############
;Get Information
;############
; Check installer Version
(if (< @installer-version (+ (* #InstallerVersion 65536) #InstallerRevision))
(
  (abort (#bad-installer #InstallerVersion #InstallerRevision))
)
) ;if

(effect "lower_right" "radial" $00285a $00285a)
(showmedia "Chameleon" "chameleon"  "upper_left" "none" 0)

(set #destmain
  (askdir
    (prompt #targetmain)
    (help @askdir-help)
    (default "sys:Prefs")
  )
)
(if (exists "Themes:list.txt"(noreq))
  (
    (set #i
      (askbool
        (prompt #themesexists)
        (help @askbool-help)
        (choices "Backup" "Delete")
        (default 0)
      )
    )
    (set #newassign "1")
  )
)
  (if (= #i 1)
    (
      (set #budest
        (askdir
          (prompt #backupdest)
          (help @askdir-help)
          (disk)
          (default "sys:")
        )
      )
    (set #budest (tackon #budest "ThemesBackup"))
    (makedir #budest)
    )
  )





;#############
;Main Installation
;#############
(If (= #i 1)
  (copyfiles
    (prompt #dobackup)
    (help @copyfiles-help)
    (source "Themes:")
    (dest #budest)
    (all)
  )
)
(if (exists "themes:list.txt"(noreq))
  (delete "themes:#?" (all) (confirm 2))
)

(if (exists "themes:"(noreq))
  (set #result "0")
  (set #result "1")
)
(if (= #result "1")
  (
    (set #destthemes
      (askdir
        (prompt #targetthemes)
        (help @askdir-help)
        (disk)
        (default "sys:")
      )
    )
    (set #destthemes (tackon #destthemes "Themes"))
    (set #destthemes (cat #destthemes "/"))
    (set #acassign (cat "  Assign Themes: " #destthemes))
    (makedir #destthemes)

    (rename "s:startup-sequence" "s:startup-sequence.orig")
    (textfile
      (dest "s:startup-sequence")
      (append #acassign)
      (append "\n")
      (include "s:startup-sequence.orig")
    )


    (startup "AmiChameleon"
      (command "  ;assign befindet sich in der startup-sequence!")
      (prompt #insertassign)
      (help @startup-help)
    )
  )
)
(if (= #result "0")
(set #destthemes "Themes:")
)



(copyfiles
  (help @copyfiles-help)
  (source "amichameleon/AmiChameleon")
  (dest #destmain)
  (Infos)
)
(copyfiles
  (help @copyfiles-help)
  (source "amichameleon/themes/")
  (dest #destthemes)
  (all)
)
(copyfiles
  (help @copyfiles-help)
  (source "amichameleon/contribution/gfxcon/gfxcon_68020")
  (dest "c:")
  (newname "gfxcon")
)
(copyfiles
  (help @copyfiles-help)
  (source "amichameleon/contribution/sgrab/SGrab")
  (dest "c:")
)
(makedir "sys:prefs/presets/AmiChameleon")

(makedir "sys:prefs/presets/acskin")
(copyfiles
  (help @copyfiles-help)
  (source "amichameleon/skin/")
  (dest "sys:prefs/presets/acskin/")
  (ALL)
)
(copyfiles
  (help @copyfiles-help)
  (source "amichameleon/acservers.txt")
  (dest "envarc:")
)
(MakeAssign "Themes" #destthemes)
(copyfiles
  (help @copyfiles-help)
  (source "amichameleon/Locale/")
  (dest "sys:locale/")
  (ALL)
)

(if (= #newassign "1")
  (
    (rename "s:startup-sequence" "s:startup-sequence.orig")
    (textfile
      (dest "s:startup-sequence")
      (append "Assign Themes: ")
      (append (expandpath "themes:"))
      (append "\n")
      (include "s:startup-sequence.orig")
    )
    (startup "AmiChameleon"
      (command #assigntxt)
      (prompt #insertassign)
      (help @startup-help)
    )
  )
)